(defun write (c)
				  (stream-print stdout c))

; A write-string function must be defined, as elsewise the string is written like a list (wich it is),  while we want it written "like a string"
(defun write-string (c)
					(unless (not (string? c) )
							(begin (write (car c))
								   (write-string (cdr c)))))

(defun read-all ()
				(let ((c (stream-read stdin)))
					 (while (<> c nil)
							(let ((b c))
								 (begin (set c (stream-read stdin))
										b)))))

